Szövegfájl (szoveg.txt) másolása egy új szövegfálba (ujszoveg.txt) (Masolo.pas) program Masolo; uses crt; var f,g:text;     s:string; BEGIN    writeln('A masolas kezdete...');    assign(f,'szoveg.txt'); Az f változóhoz hozzárendeljük a szoveg.txt-t.    assign(g,'ujszoveg.txt'); A g változóhoz hozzárendeljük az ujszoveg.txt-t.    reset(f);    rewrite(g);    while (not eof(f)) do begin       readln(f,s); Kiolvasunk egy sort az f-ként azonosított fájlból és eltároljuk az s nevű string típusú változóba.       writeln(g,s); Kiírjuk az előbb beolvasott sort a g-ként azonosított fájl egy sorába.       end;    close(f); Bezárjuk az olvasásra és írásra megnyitott fájlokat    close(g); END.